home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / amitex / arexx / choixmarges.amitex < prev    next >
Text File  |  1996-12-30  |  970b  |  40 lines
  1. /* Choix des marges pour formatage de texte */
  2. /* Chez Corbin, 30 décembre 1996, version 1.00 */
  3.  
  4. options results
  5.  
  6. cr = '0a'x
  7. mg=getclip(marge_gauche)
  8. md=getclip(marge_droite)
  9.  
  10. if mg<md then do
  11.     'REQUEST("Les valeurs des marges'cr'sont respectivement'cr'marge gauche = 'mg cr'marge droite = 'md cr cr'Voulez-vous les modifier ?")'
  12.     if result < 1 then exit
  13. end
  14.  
  15. continuer=1
  16. do while continuer
  17.     'PICKCOL("Cliquez sur la marge gauche")'
  18.     mg = result
  19.     if mg <= 0 then do
  20.     'MESSAGE("Opération annulée")'
  21.     exit
  22.     end
  23.     'PICKCOL("Cliquez sur la marge droite")'
  24.     md = result
  25.     if md <= 0 then do
  26.     'MESSAGE("Opération annulée")'
  27.     exit
  28.     end
  29.     if mg >= md then do
  30.     'MESSAGE("Valeurs incorrectes")'
  31.     exit
  32.     end
  33.  
  34.     a = setclip(marge_gauche,mg)
  35.     a = setclip(marge_droite,md)
  36.  
  37.     'REQUEST("Les valeurs des marges'cr'sont maintenant'cr'marge gauche = 'mg cr'marge droite = 'md||cr'Voulez-vous les modifier ?")'
  38.     if result~=1 then continuer=0
  39. end
  40.